   1 . MONTHLY LOAN PAYMENT
   2 . BY G.HALLQUIST
   4 :return 
   5 clear ;NT=1
  10 for K=0to 125;@(K)=0;MU=31+K;next K
  20 for K=13to 8step -1
  30 input "LOAN AMOUNT DIGIT?"L
  40 @(K)=L;next K
  50 input "MONTHS?"M
  60 for K=45to 41step -1
  70 input "INTEREST RATE DIGIT?"I
  80 @(K)=I;next K
  90 @(65)=1;@(64)=2;@(80)=1;@(26)=1
 100 $div @(36),@(54),@(36)
 110 $+@(36),@(18),@(36)
 120 for K=1to M;MU=30+K
 130 $mul @(36),@(72),@(72);next K
 140 $div @(18),@(72),@(72)
 150 $-@(18),@(72),@(72)
 160 $-@(36),@(18),@(36)
 170 $div @(72),@(36),@(72)
 180 $div @(0),@(72),@(90)
 190 @(113)=5;$+@(90),@(108),@(90)
 200 for K=90to 95;@(K)=0;next K
 210 clear ;print "LOAN AMOUNT= ",
 215 $mul @(0),@(18),@(0)
 220 A=13;B=8;gosub 400
 230 $mul @(36),@(54),@(36)
 240 print ;print "INTEREST RATE= ",
 250 if @(45)="0"goto 270
 260 TV=@(45)
 270 TV=@(44);TV=46;TV=@(43);TV=@(42);TV=@(41);TV=37;print 
 280 print "NO. OF MONTHS= ",#1,M,;print 
 290 print "MONTHLY PAYMENT= ",
 300 A=103;B=98;gosub 400
 310 TV=46;TV=@(97);TV=@(96);print 
 320 K=Mdiv 100;@(28)=K;M=M-Kmul 100
 330 K=Mdiv 10;@(27)=K;M=M-Kmul 10;@(26)=M
 340 $mul @(18),@(90),@(18)
 350 print "TOTAL PAYMENTS= ",
 360 A=32;B=26;gosub 400
 370 TV=46;TV=@(25);TV=@(24)
 380 print ;STOP
 390 .
 400 Z=1;for K=Ato Bstep -1
 410 if @(K)="0"if Zgoto 430
 420 Z=0;TV=@(K)
 430 next K
 440 return 
:return ;run 